home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
PCTV3N5
/
VBMIDI.ZIP
/
MIDI.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-10-08
|
3KB
|
121 lines
Form1
Form1
Form1
Text1
Text1
Label1
Status
Label2
Channel
Text2
Text2
Label3
Data1
Text3
Text3
Label4
Data2
Text4
Text4
Command2
Command1
Send Data
Form_Click&
Form_Load
Midiopen
hmidi
midiOutOpen
MIDIMAPPER
lphMidiOut
PHMidiOut
uDeviceID
dwCallback
dwInstance
dwFlags
Longint
remfunction
MessageBox
Form_Unload
Cancelm
midiOutClose
hMidiOut
Command1_Click
midiOutMessage
message
statuse
channel
data1;
data2
Text1_Change
text1
Text2_Change
channle(
text2
Text3_Change
text3
Text4_ChangeA
text4K
midiOutShortMsg
Command1_KeyPress
KeyAscii
lmessage
istatus
ichannel
idata1
idata2
MsgBix
ldata2
Label4_Click
Command2_Click
ErrCode
Label3_Click
Label2_Click
Label1_Click
Form_Load
Listing 2
Try to open the default MIDI device.
Quit w/error if unable to.D
Error code "
, 16, "Error!")
Send the patch change
for voice 25, the steel-e
string guitar in General MIDI.
Set default values in the text boxes.
This is the Note On message.x
This value isn't used for note on.e
Middle C.
Maximum volume.
Form_Unload
Listing 3
Close the MIDI device. This must be
done; otherwise it can't be used untilt
Windows is restarted.
Command1_Click
Listing 4
The 3 bytes of a MIDI message must be written to lmessage.
Send the message to the hmidi device handle.l
Text1_Change
Listing 6
This is the status byte portion
' of the MIDI message.
Convert the value in the text
box to an integer.i
Text2_Change
Listing 7
This is the channel nybble of
the status byte.n
Text3_Change
Listing 8
The first of 2 data bytes.e
Convert the value in the text
box to an integer.i
Text4_Change
Listing 9
The second of 2 data bytes.
Convert the value in the text
box to an integer.i
Command2_Click
Listing 5
Make sure you close the MIDI device handled
before quitting VB.